home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 1752.ZIP / MHD.ZIP / MHIDNO.PRG < prev    next >
Text File  |  1986-07-06  |  640b  |  23 lines
  1. * MHIDNO    DB3 PLUS                      PREVISION 07/04/86
  2. *
  3. SET TALK OFF
  4. CLOSE ALL DATABASES
  5. USE MHDRUG 
  6. GOTO BOTTOM
  7. STORE DRUG_ID TO drugcount
  8. STORE STR(VAL(DRUG_ID)+1,4) to nextdrug
  9. STORE GEN_NAME TO m_gen_name
  10. USE MHREFER 
  11. GOTO BOTTOM
  12. STORE REF_ID TO refcount
  13. STORE STR(VAL(REF_ID)+1,4) to nextref
  14. CLEAR
  15. ? '   Last drug is ' + m_gen_name
  16. ? '   Last drug:id = ' + drugcount + '      Last reference:id = ' + refcount
  17. ? '   Next drug:id = ' + nextdrug + '      Next reference:id = ' + nextref
  18. WAIT
  19. RELEASE ALL
  20. RETURN
  21.  
  22.  
  23.